home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
text
/
edit
/
BlacksEditor.lha
/
BlacksEditor
/
Rexx
/
UnsetLocks.bed
< prev
Wrap
Text File
|
1997-12-03
|
360b
|
26 lines
/*
** $VER: UnsetLocks.bed 1.0 (03.01.96)
**
** Unset all display and input locks currently set in any BlacksEditor
** document.
**
** Modified by Marco Negri
*/
OPTIONS RESULTS
OPTIONS FAILAT 11
ADDRESS BED
GetDocuments
docs = RESULT
DO WHILE docs ~= ''
PARSE VAR docs '"' . '" ' port docs
ADDRESS VALUE port
SetDisplayLock OFF
SetInputLock OFF
END